home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
comm
/
www
/
jtawicon.lha
/
JTMakeIconR.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-03-29
|
748b
|
26 lines
/* Make Icons - Icon Creator for AWeb-II
(c)1997 by Joachim Thomas
jthomas@mail.evo.it
jthomas@readme.com
This Program is E-Mailware - You may distribute it, on condition
that all parts are left intact.
If you like it or want to make improvements, please E-Mail me
--- !!! needs rexxreqtools.library v37.95+ !!! ---
*/
call addlib("rexxreqtools.library", 0, -30, 0)
'GET URL var UrlName'
IconName=translate(UrlName,' ',':/.')
StartPos=WORDS(IconName)
IconName=WORD(IconName,StartPos-1)
IconNameC=rtfilerequest("JtStartIcons:",IconName,,,)
AAA=OPEN(ICONFILE,IconNameC,'W')
address command 'copy JTStartIcons:template.info '||IconNameC||'.info'
OKW=WRITELN(ICONFILE,'CD AWeb-II:')
OKW=WRITELN(ICONFILE,'AWeb-II:AWeb-II 'UrlName)